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IDENT /1-003/ 3; File: MTHDNINT.MAR 
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COPYRIGHT (c) 1978, 1980, 1982, 1484 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
RIGHTS RESERVED. 


ALL 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cores 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ante ton OF THE ABOVE Sp ld had NOTICE. THIS SOFTWARE OR ANY OTHER 


® ® 
‘@ ® 
o ® 
‘@ * 
:@ e 
:@ ae 
:@ ® 
:@ ® 
:e § THERE . 
;# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
:® TRANSFERRED. * 
‘® a 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
;® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION. . 
:® * 
S® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
:@ ® 
-® * 
:@ * 
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“ABSTRACT: 
This module contains routine MTHSDNINT: 


FACILITY: MATH LIBRARY 
Return the rounded double-precision floating-point argument. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Jonathan M. Taylor, 28-Jul-77: Version 0 


MODIFIED BY: 
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9 -SBTTL DECLARATIONS 


5 t INCLUDE FILES: 
: NONE 


: EXTERNAL SYMBOLS: 
a NONE 


; MACROS: 
74; NONE 
75; 
7 
-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
e 
; ; EQUATED SYMBOLS: 
3 NONE 
4; 
5 
e 3 
7 ; OWN STORAGE: 
000 Hes 3 NONE 
0000 9; 


. 
| 
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78 ; PSECT DECLARATIONS: 
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MTHSDNINT arest Integer 16-SEP-1984 01: AX/VMS Macro _V04-00 Pa 4 atk 
ht NTH DNINT - return nearest integer as RE $28 Ep= 1984 9 33: 33 ERTARTL. SRC IJMTHDNINT .MAR; 1 ac (4) 1=€ 
1 -SBTTL MTHSONINT - return nearest integer as REAL*8 
4 :* FUNCTIONAL DESCRIPTION: 
§ Returns the rounded (away from zero) argument. 


Nearest_integer.wd.v = MTHSDNINT (arg.rd.r) 


INPUT A sage dol 


‘ 
98 : 
13 | 
10) : 
198 
104 : he input parameter is a double-precision floating-point value 
° 0 ! > and age tomes th AG 4 reg 
0 ° 1 $ : 
0 108 ; IMPLICIT INPUTS: 
33 0 109; NONE 
000 110; 
0000 111 ; OUTPUT PARAMETERS: 
0000 M6 : NONE 
0900 We : IMPLICIT OUTPUTS 
000 115; NONE 
0000 116; 
0000 117 ; COMPLETION CODES: 
0000 118; NONE 
0000 119; 
0000 120 ; SIDE EFFECTS: 
44 ' 13 Reserved Operand and Floating Overflow exceptions can occur. 
$000 1 5 3 
0000 124 ;-- 
44 125 
000 126 
B28 127 
000C 8 128 ENTRY MTHSDNINT, “M<R2, R3> 
50 04 86C 00 61 000 129 ADDD3 #0.5, a4(AP), RO : RO/R1 = arg + 0.5 
03 14 000 130 BGTR : branch if Sesttive 
50 08 62 babe 131 SUBD #1.0, RO ; RO/R1 = arg - 
52 52 08 00 50 74 000¢ 1 : 1$ EMODD Rd, 40, #1, R2, R2 : R2/R3 = fraction_part(RO/R1) 
50 52 62 pig 1 SUBD2 ; RO/R1 = integer_part(RO/R1) 
04 bo] 134 RET 
016 135 
0016 1 § 
0016 «8613 . END 


CALLING SEQUENCE: 
NONE 


MTHSONINT 
Symbol table 


MTHSONINT 00000000 RG 01 
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! Psect synopsis ! 


deo er erence nae enn ds 


PSECT name Allocation PSECT No. Attributes 


» ABS, 00000000 ( 3° 00 ¢ 0.) NOPIC USR CON ABS LC 
-MTHSCODE 00000016 ¢ 22.) O1¢ 1.) PIC USR CON REL LC 


tow omen ee owe meee one ena arees} 


! Performance indicators ! 


bamerene Sere osen ee nn nee one a + 


L NOSHR NOEXE NORD NOWRT NOVEC BYTE 
L SHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 


Initialization ¢? 60:00: 0.09 00: 0:01.1 
zonnend processing 196 00:0 : 3-38 eS 
ass :00:00. :00:01. 
Symbol table sort 0 $00; 8-90 83 #28 #8009 
Pass 2 39 00:00:00.31 4's a 1.54 
Symbol table output 1 89 282: 0.01 0:00:00.01 
Psect synopsis output 3 0:00:00.0 Ba! 0:00.14 
Cross-reference output 9 00:00:00.0 0:00:00.00 
Assembler run totals 25 00:00:01.2 00:00:08.05 


The working set Limit was 900 pages. 

1410 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 1 local symbols. 
7 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Ton wDen Benen nr ene aren on enwoaae + 


Macro Library name Macros defined 
“$255$DUAZ8:CSYSLIBISTARLET.MLB;2 (it‘Csé~;~S*~™S 0. 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ON/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHONINT/OBJ=OBJ$:MTHDNINT MSRC$:MTMDNINT/UPDATE=(ENHS:MTHDNINT ) 
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